home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K Login Window C-A-D.xpl < prev    next >
Text File  |  2003-07-24  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  5. "NAME"="Login Window: Requires C-A-D"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0101011"
  9. "TEXT 1"="User is required to press CTRL-ALT-DEL to logon"
  10. "DESCRIPTION 1"="The Login Window of Windows can either pop-up automatically or only when the "secure key combination" (CTRL + ALT + DEL) is pressed."
  11. "DESCRIPTION 2"="For secure system, this C-A-D key combination is highly recommended while to single-user system this option might be turned off."
  12. "DESCRIPTION 3"="Please note: If you use Windows XP and use the new logon window "Welcome to Windows", this option has no effect. In this case, you need to turn on the "Classic Logon Window" mode before a user is forced to press C-A-D to logon."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Monique <monique.de.meester@pandora.be> for this tweak!"
  17. "COMMENT 2"="Thanks to Alex (a.morris@virgin.net) for the Win XP and above bugfixes!"
  18.  
  19. sV="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DisableCAD" 'DW
  20.  
  21. Sub Plugin_Initialize 
  22.  'String
  23.  i=RegReadValue(sV)
  24.  j=GetWinVer
  25.  k=RegValueExists(sV)
  26.  
  27.  if j<6 then
  28.     'anything before XP
  29.     if IsEmpty(i) then
  30.        SetUIElement 1,true
  31.     else
  32.        if i=0 then
  33.           SetUIElement 1,true
  34.        end if
  35.     end if
  36.  else
  37.  
  38.     if k=TRUE then
  39.        if i=0 then
  40.           SetUIElement 1,true
  41.        end if
  42.     end if
  43.  end if
  44.  
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  if GetUIElement(1)=true then
  49.     If RegValueExists(sV) then Call RegDeleteValue(sV)
  50.  else
  51.     Call RegWriteValue(sV,1,2)
  52.  end if
  53.  
  54.  
  55.  Call Restart()
  56. End Sub
  57.  
  58.  
  59. Sub Plugin_Terminate 
  60. End Sub
  61.  
  62.  
  63.  
  64.